/QUIET where { pop }{ (loading image.ps...\n)print } ifelse

DATA_DIR(/pgmimage.ps)strcat run
DATA_DIR(/ppmimage.ps)strcat run

/QUIET where { pop }{ (eof image.ps\n)print } ifelse
